home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
201-225
/
disk_222
/
plplot
/
src
/
source.zoo
/
plt3zz.c
< prev
next >
Wrap
C/C++ Source or Header
|
1989-05-15
|
2KB
|
75 lines
/* Draws the next zig-zag line for a 3-d plot. The data is stored in */
/* array z(*,ly) as a function of x() and y(). The subarray */
/* z(1:nx,1:ny) is plotted out, starting at index (xstar0,ystar0). */
/* Depending on the state of "flg0", the sequence of data points */
/* sent to plnxtv is altered so as to allow cross-hatch plotting, */
/* or plotting parallel to either the x-axis or the y-axis. */
#include "plplot.h"
void plt3zz(xstar0,ystar0,dx,dy,flg0,init,x,y,z,ly,nx,ny,u,v)
int xstar0, ystar0, dx, dy, flg0, ly, nx, ny, init;
float x[], y[], *z;
int u[], v[];
{
int flag;
int n;
int xstart, ystart;
n = 0;
xstart = xstar0;
ystart = ystar0;
flag = flg0;
lab1:
if (1 <= xstart && xstart <= nx && 1 <= ystart && ystart <= ny) {
u[n] = wcpcx(w3wcx(x[xstart-1],y[ystart-1],
*(z+(xstart-1)*ly+(ystart-1))));
v[n] = wcpcy(w3wcy(x[xstart-1],y[ystart-1],
*(z+(xstart-1)*ly+(ystart-1))));
if (flag == -3) {
ystart = ystart + dy;
flag = -flag;
}
else if (flag == -2)
ystart = ystart + dy;
else if (flag == -1) {
ystart = ystart + dy;
flag = 1;
}
else if (flag == 1)
xstart = xstart + dx;
else if (flag == 2) {
xstart = xstart + dx;
flag = -2;
}
else if (flag == 3) {
xstart = xstart + dx;
flag = -flag;
}
n = n+1;
goto lab1;
}
if (flag == 1 || flag == -2) {
if (flag == 1) {
xstart = xstart - dx;
ystart = ystart + dy;
}
else if (flag == -2) {
ystart = ystart - dy;
xstart = xstart + dx;
}
if (1 <= xstart && xstart <= nx && 1 <= ystart && ystart <= ny) {
u[n] = wcpcx(w3wcx(x[xstart-1],y[ystart-1],
*(z+(xstart-1)*ly+(ystart-1))));
v[n] = wcpcy(w3wcy(x[xstart-1],y[ystart-1],
*(z+(xstart-1)*ly+(ystart-1))));
n = n+1;
}
}
plnxtv(u,v,n,init);
}